perm filename DIF[MAC,LSP]1 blob
sn#585837 filedate 1981-05-14 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00008 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00003 00002 1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 2,2
C00006 00003 1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 4,4
C00008 00004 1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 9,10
C00010 00005 1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 13,13
C00012 00006 1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 16,16
C00014 00007 1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 22,22
C00017 00008 1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 22,22
C00018 ENDMK
C⊗;
1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 2,2
**** File 1) EMACLS.9[MAC,LSP]/2P/26L
1) (setq -em:sfa- ())
**** File 2) EMACLS.10[MAC,LSP]/2P/26L
2) (defun em:mail-interface-initialize ()
2) (em:eval-protect)
2) (em:initialize)
2) (princ '|MacLisp Ready|)(terpri)
2) (sfa-call -em:sfa- 'force-output ())
2) )
2) (setq -em:sfa- ())
***************
**** File 1) EMACLS.9[MAC,LSP]/2P/35L
1) (em:send-simple-message 'ok -em:jobnum-)
1) (setq -em:sfa- (sfa-create (function em:mail-sfa) 0 'mail-sfa))
**** File 2) EMACLS.10[MAC,LSP]/2P/42L
2) (setq -em:sfa- (sfa-create (function em:mail-sfa) 0 'mail-sfa))
***************
**** File 1) EMACLS.9[MAC,LSP]/2P/39L
1) ; (sfa-store -em:sfa- 'xcons -em:sfa-)
1) t)
**** File 2) EMACLS.10[MAC,LSP]/2P/45L
2) ; (em:send-simple-message 'ok -em:jobnum-)
2) t)
***************
**** File 1) EMACLS.9[MAC,LSP]/2P/68L
1) ;(setq read-eval-print-* 'em:terpri)
1) (defun em:eval-until-eof ()
**** File 2) EMACLS.10[MAC,LSP]/2P/75L
2) (defun em:eval-until-eof ()
***************
**** File 1) EMACLS.9[MAC,LSP]/4P/42L
1) ; (skipge 0 mailinp) ;-1 means mail in and not read
1) ; (jrst 0 gm2)
1) ; (skipn 0 (special sail-mail-interrupt))
1) ; (mail 2 mailbox) ;SRCV
1) ; (jfcl)
1) gm2; (setzm 0 mailinp)
1) (setzm 0 tyi-inited)
**** File 2) EMACLS.10[MAC,LSP]/4P/42L
2) (setzm 0 tyi-inited)
1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 4,4
***************
**** File 1) EMACLS.9[MAC,LSP]/5P/21L
1) (xct 0 type-disp tt) ;dispatch
1) unknown (movei a 'unknown)
**** File 2) EMACLS.10[MAC,LSP]/5P/21L
2) (jrst 0 @ type-disp tt) ;dispatch
2) unknown (movei a 'unknown)
***************
**** File 1) EMACLS.9[MAC,LSP]/5P/25L
1) (jrst 0 no-op)
1) (jrst 0 initiate)
1) (jrst 0 ok)
1) (jrst 0 sexps)
1) (jrst 0 explicit-eof)
1) (jrst 0 e-command)
1) (jrst 0 interrupt)
1) (jrst 0 kill)
1) (jrst 0 readonlyvars)
1) e-command
**** File 2) EMACLS.10[MAC,LSP]/5P/25L
2) (0 0 no-op)
2) (0 0 initiate)
2) (0 0 ok)
2) (0 0 sexps)
2) (0 0 explicit-eof)
2) (0 0 e-command)
2) (0 0 interrupt)
2) (0 0 kill)
2) (0 0 readonlyvars)
2) e-command
***************
**** File 1) EMACLS.9[MAC,LSP]/6P/17L
1) ; (setom 0 mailinp) ;got mail
1) (movei a 't)
**** File 2) EMACLS.10[MAC,LSP]/6P/17L
2) (movei a 't)
***************
**** File 1) EMACLS.9[MAC,LSP]/9P/40L
1) ;pondercr
1) ; (skipn 0 firstyo)
1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 9,10
1) ; (jrst 0 tyo1)
1) ; (jrst 0 true)
1) ;ponderlf
1) ; (skipn 0 firstyo)
1) ; (jrst 0 tyo1)
1) ; (setzm 0 firstyo)
1) ; (jrst 0 true)
1) ;;; FORCE OUTPUT
**** File 2) EMACLS.10[MAC,LSP]/10P/1L
2) ;;; FORCE OUTPUT
***************
**** File 1) EMACLS.9[MAC,LSP]/10P/17L
1) ; (setom 0 firstyo)
1) (setzm 0 noncrlf)
**** File 2) EMACLS.10[MAC,LSP]/10P/17L
2) (setzm 0 noncrlf)
***************
**** File 1) EMACLS.9[MAC,LSP]/10P/24L
1) ; (movei a 40) ;space
1) ; (aos 0 charpos)
1) ; (idpb a outpoint)
1) ; (sos 0 outbytes) ;extra byte
1) (movei a outmail) ;address of buffer
**** File 2) EMACLS.10[MAC,LSP]/10P/23L
2) (movei a outmail) ;address of buffer
***************
**** File 1) EMACLS.9[MAC,LSP]/12P/6L
1) ; (setom 0 mailinp)
1) (setom 0 mailprocessed)
**** File 2) EMACLS.10[MAC,LSP]/12P/6L
2) (setom 0 mailprocessed)
***************
**** File 1) EMACLS.9[MAC,LSP]/13P/27L
1) ; (setzm 0 firstyo)
1) (setzm 0 forcedp)
**** File 2) EMACLS.10[MAC,LSP]/13P/27L
2) (setzm 0 forcedp)
***************
1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 13,13
**** File 1) EMACLS.9[MAC,LSP]/13P/37L
1) ; (setzm 0 mailinp)
1) (setom 0 mailprocessed)
**** File 2) EMACLS.10[MAC,LSP]/13P/36L
2) (setom 0 mailprocessed)
***************
**** File 1) EMACLS.9[MAC,LSP]/14P/8L
1) ; (setzm 0 mailinp)
1) (hrrzs tt) ;flush short?
**** File 2) EMACLS.10[MAC,LSP]/14P/8L
2) (hrrzs tt) ;flush short?
***************
**** File 1) EMACLS.9[MAC,LSP]/15P/2L
1) (args em:send-simple-message (nil . 2))
1) (cain a 'initiate)
**** File 2) EMACLS.10[MAC,LSP]/15P/2L
2) (args em:send-simple-message (nil . 1))
2) (cain a 'initiate)
***************
**** File 1) EMACLS.9[MAC,LSP]/15P/31L
1) (move b 0 b)
1) (movem b jobn2)
1) (movem b jobnum)
1) (move b thisjob)
**** File 2) EMACLS.10[MAC,LSP]/15P/31L
2) (move b thisjob)
***************
**** File 1) EMACLS.9[MAC,LSP]/16P/2L
1) (args em:send-control-char (nil . 2))
1) send-control-char
**** File 2) EMACLS.10[MAC,LSP]/16P/2L
2) (args em:send-control-char (nil . 1))
2) send-control-char
***************
**** File 1) EMACLS.9[MAC,LSP]/16P/23L
1) (move b 0 b)
1) (movem b jobn2)
1) (movem b jobnum)
1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 16,16
1) (move b thisjob)
**** File 2) EMACLS.10[MAC,LSP]/16P/23L
2) (move b thisjob)
***************
**** File 1) EMACLS.9[MAC,LSP]/17P/8L
1) ; (setzm 0 mailinp)
1) (setom 0 jobnum)
1) (calli tt 30)
1) (movem tt thisjob)
1) (jrst 0 fix1)
**** File 2) EMACLS.10[MAC,LSP]/17P/8L
2) (setom 0 jobnum)
2) (calli tt 30)
2) (movem tt mailbox)
2) (jrst 0 fix1)
***************
**** File 1) EMACLS.9[MAC,LSP]/20P/45L
1) (mail 5 jobnum) ;mail it
1) (jsp tt wait-for-clear)
**** File 2) EMACLS.10[MAC,LSP]/20P/45L
2) (mail 5 jobnum) ;mail it
2) (jsp tt wait-for-clear)
***************
**** File 1) EMACLS.9[MAC,LSP]/22P/3L
1) ;firstyo (0)
1) svdacs (block 10.)
**** File 2) EMACLS.10[MAC,LSP]/22P/3L
2) svdacs (block 10.)
***************
**** File 1) EMACLS.9[MAC,LSP]/22P/14L
1) ;mailinp (0) ;-1 means mail in and not read
1) mailint (4000000000)
**** File 2) EMACLS.10[MAC,LSP]/22P/13L
2) mailint (4000000000)
***************
**** File 1) EMACLS.9[MAC,LSP]/22P/19L
1) ;(entry mailbox subr)
1) mailbox (block mlblksize) ;mail
1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 22,22
**** File 2) EMACLS.10[MAC,LSP]/22P/17L
2) mailbox (block mlblksize) ;mail
***************
**** File 1) EMACLS.9[MAC,LSP]/22P/25L
1) ;(entry mailb2 subr)
1) mailb2(block mlblksize) ;short mail
1) ;(entry inmail subr)
1) inmail (block blksize) ;text
1) ;(entry outmail subr)
1) outmail (block blksize) ;text
**** File 2) EMACLS.10[MAC,LSP]/22P/21L
2) mailb2(block mlblksize) ;short mail
2) inmail (block blksize) ;text
2) outmail (block blksize) ;text
***************
**** File 1) EMACLS.9[MAC,LSP]/22P/41L
1) ;(entry inpoint subr)
1) ;inpoint (700←22 0 (- inmail 1))
1) ;inpointtem (700←22 0 (- inmail 1))
1) inpoint (1100←22 0 (- inmail 1))
**** File 2) EMACLS.10[MAC,LSP]/22P/31L
2) inpoint (1100←22 0 (- inmail 1))
***************
**** File 1) EMACLS.9[MAC,LSP]/22P/56L
1) outbytes (0 0 (% 0 0 (+ noutbytes 1)))
1) rovbytes (0 0 (% 0 0 (+ nrovbytes 1)))
1) mailprocessed (-1) ;0 means not processed
1) charpos (0)
1) tyi-inited (0) ;ready to read. 0 = nil, -1 = t
**** File 2) EMACLS.10[MAC,LSP]/22P/42L
2) outbytes (0 0 (+ noutbytes 1))
2) rovbytes (0 0 (+ nrovbytes 1))
2) mailprocessed (-1) ;0 means not processed
2) charpos (0)
2) thisjob (0)
2) tyi-inited (0) ;ready to read. 0 = nil, -1 = t
***************
**** File 1) EMACLS.9[MAC,LSP]/22P/63L
1) thisjob (0)
1) jobread (0)
1) EMACLS.9[MAC,LSP] and 2) EMACLS.10[MAC,LSP] 5-14-81 19:34 pages 22,22
**** File 2) EMACLS.10[MAC,LSP]/22P/50L
2) jobread (0)
***************
**** File 1) EMACLS.9[MAC,LSP]/22P/71L
1) (em:eval-protect)
1) (em:initialize)
1) (princ '|MacLisp Ready|)))
**** File 2) EMACLS.10[MAC,LSP]/22P/57L
2) (em:mail-interface-initialize)))
***************